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BEGIN 


' 
See RRe RARER REAR EAAAAAA RARER AAAEAAAAAAE RAAT ARATE 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
' DIGITAL EQUIPMENT €ORPORATION, MAYNARD, MASSACHUSETTS. 
'w ALL RIGHTS RESERVED. 


® 
e 
® 
® 
: ® 
:* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
ONLY IN ACCORDANCE W THE TERMS OF SUCH LICENSE AND WITH THE * 

:* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
:* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
:* QTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
'® TRANSFERRED. ® 
4 ® 
!® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
tt AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
'® CORPORATION. * 
® 

® 

® 

® 

® 

® 


i® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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0 ie 
' 
03 | peubbsesennnsabbensdeusubateienebdimeabeesienebeeneeestneneireiensénenee 
o '++ 
0 ! 
3 FACILITY: F11ACP Structure Level 2 
03 ABSTRACT: 
03 This routine parses a file name string. 
903 ENVIRONMENT : 

041 i STARLET operating system, including privileged system services 

eh ! and internal exec routines. 
004 ! 

44 1 in- 
6 45 ! 
004 i 
r44 : AUTHOR: Andrew C. Goldstein, CREATION DATE: 3-Jan-1978 18:30 | 
0049 MODIFIED BY: ‘ 

051 i v03-003 CDS0002 Christian D. Saether 2-Jan-1984 | 
2¢ Force longword addressing on FILS$CVT_DTB. | 
24 v03-002 ¢pS0001 Christian D. Saether  6-Dec-1983 

! 
5 ! 
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< 
oO 


Be Se Oe Be Be Be Be Oe Se Be Ge Oe SH Se Se Se FH Se Be Se Be Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se See Se Se Beas Fee Fe Se Se eas 


P 
Vv 


Ree Ge Ge ee Ge FH Se Se Se SH Se ee 


mo 


ss 


g 


| 


TeedunGhaS tens ch 412. SReapanswm.a32:1°% «18 
Add support for long file names and $ and _ 


Andrew C. Goldstein, 
Allow negative version numbers; 


v02-002 ACG0208 
nterface change for 


v02-001 ACG0167 Andrew C. Goldstein 


Previous revision history moved to f11B.REV 
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04-000 12738071382 99:98:26 i 

E 


| 

Py L L U JN a ry N a U 7 U fe N e L $ L = ° 
f ! 1 ! GLOBAL ROUTINE PARSE_NAME (NAME_DESC, NAME_BUFFER, COUNT, STRING, FLAGS) : NOVALUE : 

: 74 1 é 1 le ; 
3 1 1! F 
3 f : 65 ! FUNCTIONAL DESCRIPTION: : 
$ 8 } eS ! This routine parses a file name string. : 
; 1 es 1! 5 
3; 8 1070 1 ! CALLING SEQUENCE: 3 
; a¢ 19 : PARSE_NAME (ARG1, ARG2, ARG3, ARG4, ARGS) : 
: 84 1 ig 1 | INPUT PARAMETERS: | ; 
; 89 1074 1! ARG3: character count of name string ; 
; 86 1075 1! ARG4: address of name string : 
3 44 1978 } ARGS: name control flag bits : 
; «6289 1078 1 ! IMPLICIT INPUTS: 3 
; 90 1079 1! NONE \ . 
; 1080 1! : 
; 4 1081 1 ! OUTPUT PARAMETERS: : 
zs . 1086 1! ARG1: address of name descriptor block : 
; Be Fg : ARG2: address of name string buffer to use : 
; 1085 1 ! IMPLICIT OUTPUTS: : 
i Oy av 1988 1! NONE : 
; #698 1087 1! 3 
: 9 1088 1 ! ROUTINE VALUE: ; 
; 100 1089 1! NONE ; 
: 6101 1090 1! : 
3 4 1091 1 ! SIDE EFFECTS: 3 
; 10 196 1! NONE : 
: 104 1093 1! 3 
; 105 1094 1 !-- 3 
; 106 1095 1 : 
: 107 1096 BEGIN 3 
; 108 1097 $ 
3; 109 1098 MAP 3 
; 110 1099 NAME _DESC : REF BBLOCK, =! name descriptor block arg : 
: 1) 1399 NAME _BUFFER : REF VECTOR C,BYTEJ; ! name string buffer arg : 
; 118 1198 LOCAL 3 
3 : » ! local poin e $ 
114 110 P REF BBLOCK ! local pointer to descriptor | ; 

s 115 110¢ WILD_BIT, ' copy of wild name and type bit $ 
; 116 1105 J ! character counter : 
. Sey 1198 Pi, ' pointer to scan string $ 
; #118 110 P2, ! pointer to build output string F 
3; 119 1108 C : BYTE, ' character in process : ; 
; 120 1109 T, : number of significant chars in string : 
: 121 1110 DOT_COUNT, ' count of ‘’.*" encountered ; : 
: : ¢ Ee ; ! flag indicating negative version : 
: 124 1118 5 EXTERNAL ROUTINE : | : 
; 136 4113 FILSCVT_DTB : ADDRESSING_MODE (GENERAL); ! convert decimal to binary : 
: 1 111 ; 
: 128 We ! Load a local pointer to the name descriptor block. Once the compiler : 
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learns how to address structures through formals, this code can be removed. 


4 
(2) 


DP = .NAME_DESC; 


UEWN—OO 


pyorete on the foresters. copying alphanumerics in upper case. 
s 


! 
: a wild card present if name or type, we leave that field null. 
' Dots and semicolons delimit the name and type strings; once two have been 
! seen, get the version number. Note that a semicolon seen without a dot is 
8 ! processed twice to produce a null type field. We stuff dots at the end 
6 if necessary to get the descriptors completed. 
¢ CHSFILL (0, FND_LENGTH, .DP); 
DPLFND_FLAGS)] =~.FLAGS AND NOT SFIELDMASK (FIBS$V_WILD); 
4 WILD_BIT = .DPLFND_WILD_NAME); 
5 J = COUNT; 
. Pl = .STRING; 
P2 = ren 
8 CCOUNT = 0; 
9 T_ COUNT 
? ig 
¢ WHILE 1 DO 
BEG! 
: IF . = .J- 1) GEQ 0 
6 C = CHSRCHAR_A (P1) 
7 ELSE 
8 BEGIN 
9 Se "."% 
2 .d * V5 
END; 


wn 


IF .P2 = .NAME_BUFFER GTRU FILENAME_LENGTH 
THEN ERR_EXIT (SS$_BADFILENAME) ; 


SELECTONEU .C OF 
SET 


f*a’ TO se *9* TO a a “E*- Fa 
BEGIN 
CCOUNT = .CCOUNT + 1; 

IF NOT .WILD BIT 

THEN CHSWCHAR_A (.C, P2); 


WN 9 ODNOAUE WN ("OO OONA UE WIN $0 O@NOUES WN OC CONOUES WN OO0O 


PT Re NE ee ttt a a et te nee 
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C'a’ TO ‘z'): 
EGIN 
C = .C AND NOT %Xx'20'; 
CCOUNT = .CCOUNT + 1; 

IF NOT .WILD BIT 

THEN CHSWCHAR_A (.C, P2); 
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' $3 


-TITLE PARSNM 
-IDENT \v04-000\ 


-EXTRN FILSCVT_DTB 
.PSECT SCODE$,NOWRT,2 


> 243 1 § ! Record the Length of the generated string. Then convert and check the : 
8 44 1 ' version number. F 
3 tz : : ! . 
3 2 : $ try COUNT] = .P2 = .DPCFND_STRING); ; 
3 26 1 § AND CHSRCHAR (.P1) EQL ‘#' ‘ 
3 ? ; i6 THEN DPCFND_WILD_VERJ = 1; ; 
3 ¢ 1241 NEG = 0; 3 
3 1 tg IF NOT .DPCFND_WILD_VERJ é 
5 4 124 THEN 3 
; 5 1244 5 
; «ge 1245 IF .J GTR O s 
3 5 1 r¢ AND CHSRCHAR (.P1) EQL ‘-" $ 
: 258 124 THEN 3 
3 59 12468 4 BEGIN $ 
: 260 1249 4 NEG = 1; 3 
; 261 1 ey 4 JzJeol 3 
3 6 1251 4 Pl = .P1 + 1; é 
3; £ 1 26 END; 3 
4 64 125 IF NOT FILSCVT DTB (.J, .P1, DPCFND_VERSION]) b 
; 265 1254 THEN ERR_EXIT (SS$_BADFILEVER); ; 
5 4] ' 32 END; : 
3 68 1257 IF .(DPCFND_VERSIONJ)<0,32> GTRU 32768 : 
: 269 1258 2 THEN ERR_EXTT (SS$_BADFILEVER); ; 
3 70 1259 3 
3 71 1260 3 
: 7 1261 T $ 
3s at 1 o¢ F 
3 74 126 VE 3 
$ 75 1264 IF .DPCFND VERSION) EQL 9 : 
3 7 1265 THEN DPCFNB_VERSION) = -52768; : 
3 7 1266 END; , 
: 78 1267 ; 3 
; 279 1268 1 END; ! end of routine PARSE_NAME : 
OFC sts -ENTRY PARSE_NAME, Save R2,R3,R4,R5,R6,R7,R8 ; 1061 : 

56 04 aC 00 0000 MOVL NAME _DBESC, 3 1121 : 

10 00 6E re ec 008 MOVCS #0, TSP), #0, #16, (DP) : 1151 : 

66 14 AC 0100 rt AB BICw3 #256, FLAGS, (DP) 3 11 é 

54 66 1 5 EF 13 EXTZV AS Wi, (DPS, WILD_BIT : 11 g F 

7 9 AC D 1 MOVL C 2 43 : 

5 AC D 1 MOVL STRING, P1 > 1135 : 

0 0 AC D MOVL NAME BUFFER, P2 : 11 § : 

2 i) 4 CLRL CCOURT s 11 2 

D4 6 CLRL = DOT_COUNT : 1138 ; 


| 

IF_.NEG 
DPLFND_ VERSION] = ~.DPLFND_VERSION]; 
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—n 
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08 Ab 3 09 8 MOVL 2, 8(DP) 3113 
p C 1$ DECL + 114 
9 BLSS $ : 
51 90 OVE BI), C + 1145 
51 5 90 0 28: MOVB 846, C + 1148 
2 0 08 A p¢ A 3$ Atte NAME BUFFER, P2. R2 ; 1182. 
00000050 = &F : D1 p F CMPL =e RR, 780 iter : | 
F 1A a6 BGTRU : 
1 91 0004 CMPB sé, -~#36 + 1158 
5 13 048 Bea. =Ss«s18 : 
51 91 00040 CMPBCé,«#48 : 
03 1F 0005 Bissu 4$ : 
1 91 0005 CMPBé,:«#57 : 
68 1B 0005 BLEQU 138 ; 
1 91 00057 4$ CMPB ; #65 : 
96 1F 90058 BLssu.‘5$ : 
1 91 0005D CMPB) sé, -#90 : 
SF 1B 00061 BLEQU 13$ : 
51 91 00063 5$: CMPB)éC,:«#95 : 
59 (13 90067 BEQL=Sésé18 : 
51 91 00069 CMPB sé, -«#97 + 1165 
08 1F 0006D BLSSU : 
1 91 0006 CMPBsé,:«#122 ; 
05 1A 00073 BGTR : 
20 8A 00075 BICB2 #32, C + 1167 
48 11 00078 BRB $ + 1168 
51 91 OOO7A 6$ CMPB ‘ #46 + 1173 
5 13 0007D BEQL : 
1 91 0007F CMPBé,,:s«#S9) F 
5 12 00082 BNEQ $ : 
3 pi 00084 7s: CMPL _ CCOUNT, #39 : 1175 
55 1A 00087 8$: BGTRU ; 
58 €8 00089 BLBS | DOT_COUNT, 11$ : 1177 
54 £9 0008C BLBC = WILB BIT, 9$ : 1180 
01 88 0008F BISB2 #1, T(DPS + 1183 
eA 90 00093 MOVB #42, (P2)+ : 1184 
1 91 00096 98: CMPB CG, «#59 : 1186 
04 if 0099 BNEQ 10$ : 

5 po? 00098 DECL ~=-~wP'1 : 1189 
57 06 0090 INCL J : 1190 
E 90 OOO9F 10$:  MOVB #46, (P2)+ : 1198 
4 EF 0 Ag EXTZV #4, #1, (DP), WILD_BIT : 119 
2 D4 OOOA CLRL CCOUNT > 1194 
58 D6 000A9 INCL  DOT_COUNT : 1195 
gE 11 0 AB BRB 16$ : 1177 
4 €9 QOOAD 11$:  BLBC WILD BIT, 18$ :1 09 
01 B0 BISB2 #1, T(DPS : 120 
A OB4 MOV #48, (P2)+ > 1204 
A 11 00087 BRB 18 : 1199 
1 91 00089 128:  CMPB  C, #37 : 1210 

8 12 OBC BNEQ 14$ : 
1 88 0008 BISB2 #1, 1(DP) : 1211 
3 06 Co 13$: INCL CCOUNT : 121 
oF 1 ¢ BRB 15$ > 121 
1 91 000C6 148: CMPB  C, #42 : 121 
i 
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Library Statistics 


| 
; Elapsed Time: 00:34.4 
3; Lines/CPU Min: 5 | 
3; Lexemes/CPU-Min: 23539 
3 eety Used: 216 pages | 
$ a 

| 

| 


; asacanae SYGRO(§ Soessece Pages Processing 3 
; File Total Loaded Percent Mapped Time : 
: -$255$DUA28: CSYSLIBILIB.L32;1 18619 20 0 1000 00:01.9 ; 
COMMAND QUALIFIERS ; 
; BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE)/LiS=LIS$:PARSNM/OBJ=OBJ$:PARSNM MSRC$:PARSNM/UPDATE=(ENH$:PARSNM) ; 
; Size: 317 code + 0 data bytes : 
; Run Time: 00:13.8 é 


; Compilation Complete 
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